home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar / 1995 / DEC / DI9512CJ / demo6u.dfm / demo6u.txt
Text File  |  1995-10-22  |  3KB  |  144 lines
  1. object Form1: TForm1
  2.   Left = 196
  3.   Top = 101
  4.   Width = 347
  5.   Height = 302
  6.   Caption = 'Demo6 - FindKey Example 3'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   Position = poScreenCenter
  13.   OnCreate = FormCreate
  14.   TextHeight = 16
  15.   object Label1: TLabel
  16.     Left = 29
  17.     Top = 11
  18.     Width = 29
  19.     Height = 16
  20.     Caption = 'City:'
  21.   end
  22.   object Label2: TLabel
  23.     Left = 30
  24.     Top = 43
  25.     Width = 37
  26.     Height = 16
  27.     Caption = 'State:'
  28.   end
  29.   object DBGrid1: TDBGrid
  30.     Left = 12
  31.     Top = 75
  32.     Width = 317
  33.     Height = 110
  34.     DataSource = DataSource1
  35.     TabOrder = 2
  36.     TitleFont.Color = clWindowText
  37.     TitleFont.Height = -13
  38.     TitleFont.Name = 'System'
  39.     TitleFont.Style = []
  40.   end
  41.   object Button1: TButton
  42.     Left = 34
  43.     Top = 224
  44.     Width = 113
  45.     Height = 33
  46.     Caption = 'FindKey'
  47.     TabOrder = 3
  48.     OnClick = Button1Click
  49.   end
  50.   object Edit1: TEdit
  51.     Left = 93
  52.     Top = 9
  53.     Width = 121
  54.     Height = 24
  55.     TabOrder = 0
  56.   end
  57.   object Button2: TButton
  58.     Left = 181
  59.     Top = 225
  60.     Width = 113
  61.     Height = 33
  62.     Caption = 'FindNearest'
  63.     TabOrder = 4
  64.     OnClick = Button2Click
  65.   end
  66.   object Edit2: TEdit
  67.     Left = 94
  68.     Top = 41
  69.     Width = 121
  70.     Height = 24
  71.     TabOrder = 1
  72.   end
  73.   object DataSource1: TDataSource
  74.     DataSet = Table1
  75.     Left = 8
  76.     Top = 187
  77.   end
  78.   object Table1: TTable
  79.     IndexName = 'ByCityState'
  80.     TableName = 'newcust'
  81.     Left = 46
  82.     Top = 192
  83.     object Table1CustNo: TFloatField
  84.       DisplayWidth = 10
  85.       FieldName = 'CustNo'
  86.     end
  87.     object Table1City: TStringField
  88.       DisplayWidth = 15
  89.       FieldName = 'City'
  90.       Size = 15
  91.     end
  92.     object Table1State: TStringField
  93.       DisplayWidth = 9
  94.       FieldName = 'State'
  95.     end
  96.     object Table1Company: TStringField
  97.       DisplayWidth = 30
  98.       FieldName = 'Company'
  99.       Size = 30
  100.     end
  101.     object Table1Addr1: TStringField
  102.       DisplayWidth = 30
  103.       FieldName = 'Addr1'
  104.       Size = 30
  105.     end
  106.     object Table1Addr2: TStringField
  107.       DisplayWidth = 30
  108.       FieldName = 'Addr2'
  109.       Size = 30
  110.     end
  111.     object Table1Zip: TStringField
  112.       DisplayWidth = 10
  113.       FieldName = 'Zip'
  114.       Size = 10
  115.     end
  116.     object Table1Country: TStringField
  117.       DisplayWidth = 20
  118.       FieldName = 'Country'
  119.     end
  120.     object Table1Phone: TStringField
  121.       DisplayWidth = 15
  122.       FieldName = 'Phone'
  123.       Size = 15
  124.     end
  125.     object Table1FAX: TStringField
  126.       DisplayWidth = 15
  127.       FieldName = 'FAX'
  128.       Size = 15
  129.     end
  130.     object Table1TaxRate: TFloatField
  131.       DisplayWidth = 10
  132.       FieldName = 'TaxRate'
  133.     end
  134.     object Table1Contact: TStringField
  135.       DisplayWidth = 20
  136.       FieldName = 'Contact'
  137.     end
  138.     object Table1LastInvoiceDate: TDateTimeField
  139.       DisplayWidth = 13
  140.       FieldName = 'LastInvoiceDate'
  141.     end
  142.   end
  143. end
  144.